home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 1201_300 / DISK1262 / DISK1262.ZIP / FMOVE.D < prev    next >
Text File  |  1988-07-11  |  1KB  |  48 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;--------------------------------
  4. ; F M O V E  -- MOVE AN ASCIIZ STRING INTO THE FILE NAME
  5. ;
  6. ; Entry conditions:
  7. ;    AX points to the source string
  8. ;    BX points to the target file
  9. ; Exit conditions:
  10. ;    Assume ALL registers modified
  11. ;
  12. ; Calling Example:
  13. ;
  14. ;    FILE    AFILE,'          ',A
  15. ;    STRING    STR,10
  16. ;    ;
  17. ;    READ    CONSL,STR,10
  18. ;    CALL    FMOVE STR AFILE
  19. ;    OPEN    INPUT,AFILE
  20. ;
  21. ; Calling results:
  22. ;
  23. ;    The ASCIIZ string will be copied into the AFILE file name. There is
  24. ;    no protection for overruning the target file name length.
  25. ;    
  26. ;
  27. SUBPGM    FMOVE
  28. BEGIN    FMOVE
  29.     EXTRN    _STRLEN:NEAR
  30.     PUSH    ES
  31.     PUSH    DS
  32.     POP    ES
  33.     MOV    SI,AX
  34.     CALL    _STRLEN        ; GET THE SOURCE LENGTH
  35.     MOV    DI,BX
  36.     ADD    DI,@FFNAM
  37.     CLD
  38. ;
  39.     REP    MOVSB
  40. ;
  41.     SUB    AL,AL
  42.     STOSB            ; SET THE TERMINATOR
  43.     POP    ES
  44.     RET
  45. ;
  46. ENDPGM    FMOVE
  47. ;
  48.